home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
COPY.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-10
|
805b
|
25 lines
'Date: 03-02-92 (19:11)
'From: JOHN SNEERINGER
'---------------------------------------------------------------------------
' ===========================================================
' Copy File From Command Line -> Named to whatever F2$ is.
' ===========================================================
F1$ = COMMAND$ ' Target filename from command line
INPUT "New Name?"; F2$ ' name of file you want to copy to
OPEN "B", 1, F1$
OPEN "B", 2, F2$
A$ = SPACE$(1024)
FOR i = 1 TO LOF(1) \ 1024
GET 1, , A$
PUT 2, , A$
NEXT i
IF LOF(1) MOD 1024 > 0 THEN
A$ = SPACE$(LOF(1) MOD 1024)
GET 1, , A$
PUT 2, , A$
END IF
CLOSE 1, 2